home *** CD-ROM | disk | FTP | other *** search
/ Big Science Comics / Big Science Comics (1996)(Theatrix)[Mac-PC].iso / pc / wnet16 / disk1 / setup.ms_ / setup.ms
Text File  |  1996-06-25  |  50KB  |  1,326 lines
  1. '============================================================================
  2. '           
  3. '
  4. ' $Workfile: SETUP.MST $
  5. ' $Revision: 21 $
  6. ' $Date: 2/13/96 12:39p $
  7. '
  8. ' Authors: Modified by Lisa Angelini.  Original from Netscape
  9. '
  10. ' Purpose: This script file is used by MS Setup to create installation
  11. '       procedures.  We have modified this script from Netscape for
  12. '       the installation and setup of our files.
  13. '
  14. ' 
  15. ' $History: SETUP.MST $
  16. ' 
  17. ' *****************  Version 21  *****************
  18. ' User: Lisa         Date: 2/13/96    Time: 12:39p
  19. ' Updated in $/WorldNet.16/Install
  20. ' 1.  Moved the "Would you like to delete the _ directory" message box
  21. ' after the message box that says "Are you sure you want to deinstall
  22. ' AT&T WorldNet Services".  Now, both message boxes are reworded and
  23. ' follow one after another.  No longer will the user be able to save the
  24. ' directory if they decide to deinstall.  When they answer yes to the
  25. ' Warning message box, everything is removed.
  26. ' 
  27. ' *****************  Version 20  *****************
  28. ' User: Lisa         Date: 1/31/96    Time: 11:34a
  29. ' Updated in $/WorldNet.16/Install
  30. ' 1.  Set claimport to 1 in our modification of system.ini for shivappp
  31. ' 
  32. ' *****************  Version 19  *****************
  33. ' User: Lisa         Date: 1/30/96    Time: 2:41p
  34. ' Updated in $/WorldNet.16/Install
  35. ' 1.  Changed GroupRst's class name to the new one that Mike changed it
  36. ' to.
  37. ' 2.  Reworded the message box that appears when we detect the user does
  38. ' not have a PE installation.
  39. ' 
  40. ' *****************  Version 18  *****************
  41. ' User: Baumeister   Date: 1/26/96    Time: 10:26a
  42. ' Updated in $/WorldNet.16/Install
  43. ' Added custcare.bmp to the deinstall list.
  44. ' 
  45. ' *****************  Version 17  *****************
  46. ' User: Lisa         Date: 1/25/96    Time: 6:57p
  47. ' Updated in $/WorldNet.16/Install
  48. ' 1.  changed commented code to have new names of grouprst.exe and
  49. ' advisor.exe
  50. ' 2.  changed the launcher.ini to advisor.ini where the ini file gets
  51. ' updated with the correct directory for our installation.
  52. ' 
  53. ' *****************  Version 16  *****************
  54. ' User: Lisa         Date: 1/25/96    Time: 5:35p
  55. ' Updated in $/WorldNet.16/Install
  56. ' 1.  Change last place where qwikfix.exe needed to be changed to
  57. ' grouprst.exe.
  58. ' 
  59. ' *****************  Version 15  *****************
  60. ' User: Lisa         Date: 1/23/96    Time: 4:58p
  61. ' Updated in $/WorldNet/Install
  62. ' 1.  Put in check for LAN version, i.e. not a PE version.  The typical
  63. ' option will always give C:\worldnet if we find and entry in win.ini for
  64. ' a previous installation.
  65. ' 2.  added dialer.ico to deletion list.
  66. ' 
  67. ' *****************  Version 14  *****************
  68. ' User: Lisa         Date: 1/11/96    Time: 4:21p
  69. ' Updated in $/WorldNet/Install
  70. ' Updated with the latest release from Netscape.  This is a merged
  71. ' version of their changes (mostly Service to Services) and our changes.
  72. ' Also added the new names wnsysrpt, advisor, and grouprst to the list of
  73. ' files to be deinstalled.
  74. ' 
  75. ' *****************  Version 13  *****************
  76. ' User: Lisa         Date: 12/15/95   Time: 1:56p
  77. ' Updated in $/WorldNet/Install
  78. ' 1.  Added a version check for Win 95 and a loop to check if QwikFix is
  79. ' finished executing, which indicates that the program group is created.
  80. ' This is needed only for Windows 95 because setup was continuing to
  81. ' proceed even though QwikFix hadn't finished creating the program group.
  82. ' As a result, the Setup message box to continue with installation was
  83. ' hidden from the user by the program group.  This happened only in
  84. ' Windows 95.
  85. ' 
  86. ' *****************  Version 12  *****************
  87. ' User: Lisa         Date: 12/14/95   Time: 1:05p
  88. ' Updated in $/WorldNet/Install
  89. ' 1.  changed sections names AT&&T WorldNet Services and AT&&T Dial back
  90. ' to Netscape and AttDial.
  91. ' 
  92. ' *****************  Version 11  *****************
  93. ' User: Lisa         Date: 12/13/95   Time: 12:12p
  94. ' Updated in $/WorldNet/Install
  95. ' 1.  Change AT&T WorldNet(SM) Servics back to AT&T WorldNet Service
  96. ' until Netscape can make the appropriate changes in signup.exe.
  97. ' 
  98. ' *****************  Version 10  *****************
  99. ' User: Lisa         Date: 12/13/95   Time: 11:54a
  100. ' Updated in $/WorldNet/Install
  101. ' 1.  Changed the DeleteProgmanGroup argument to AT&T WorldNet(SM)
  102. ' Services so the program group gets deleted on deinstall.
  103. ' 2.  Remove all the code in the subroutine AddProgramItems, except for
  104. ' ShowWindow on the program manager and added a call to WinExec
  105. ' QwikFix.exe.  This creates the program group items now.
  106. ' 
  107. ' *****************  Version 9  *****************
  108. ' User: Lisa         Date: 12/12/95   Time: 3:40p
  109. ' Updated in $/WorldNet/Install
  110. ' 1.  Changed name of shiva section to ShivaPPP and its entry to
  111. ' ClaimPort.
  112. ' 
  113. ' *****************  Version 8  *****************
  114. ' User: Lisa         Date: 12/12/95   Time: 11:15a
  115. ' Updated in $/WorldNet/Install
  116. ' 1.  WinExec qwikfix.exe after program group is created in case the user
  117. ' did a reinstall and there are two registration wizard icons present.
  118. ' 2.  Changed all Service text to Services.
  119. ' 3.  Modified the system.ini entry for shiva to be shivappp not
  120. ' shiva.ppp
  121. ' 4.  Added removal of shivappp entry in system.ini if user selects
  122. ' deinstall.
  123. ' 5.  Using signup.exe not regwiz.ico for the wrapped registration wizard
  124. ' icon.
  125. ' 6.  Added qwiklook.ini and getaccnt.exe to list of files to delete on
  126. ' deinstall.
  127. ' 7.  Changed customer care icon title to Customer Care Tools.
  128. ' 8.  Added full path to command line for notepad for the Read Me icon.
  129. ' 9.  Added full path to command line for customer care icon.
  130. ' 10.  Changed Netscape to AT&&T WorldNet Services in the section where
  131. ' the launcher.ini file gets modified.
  132. ' 11.  Same as 10.  Changed Att Dial to AT&&T Dial.
  133. ' 
  134. ' *****************  Version 7  *****************
  135. ' User: Lisa         Date: 11/22/95   Time: 3:14p
  136. ' Updated in $/WorldNet/Install
  137. ' 1.  Changed the launcher.ini file so eudora has the full path for its
  138. ' argument (directory).
  139. ' 
  140. ' *****************  Version 6  *****************
  141. ' User: Lisa         Date: 11/21/95   Time: 3:59p
  142. ' Updated in $/WorldNet/Install
  143. ' 1.  Removed an extra " from line 917.
  144. ' 
  145. ' *****************  Version 5  *****************
  146. ' User: Lisa         Date: 11/20/95   Time: 2:14p
  147. ' Updated in $/WorldNet/Install
  148. ' 1.  Removed QwikLook.exe and added CustCare.exe to the program group.
  149. ' 2.  Added CustCare.exe to list of files to be removed.
  150. ' 3.  Added launcher section to be updated in the launcher.ini so it has
  151. ' the correct directory where worldnet was installed into.
  152. ' 
  153. ' *****************  Version 4  *****************
  154. ' User: Lisa         Date: 11/16/95   Time: 10:00a
  155. ' Updated in $/WorldNet/Install
  156. ' Remove qwiklook.ini from script since it doesn't exist yet.
  157. ' 
  158. ' *****************  Version 3  *****************
  159. ' User: Lisa         Date: 11/15/95   Time: 2:50p
  160. ' Updated in $/WorldNet/Install
  161. ' Added line to remove qwikfix.ini.
  162. ' 
  163. ' *****************  Version 2  *****************
  164. ' User: Lisa         Date: 11/13/95   Time: 4:52p
  165. ' Updated in $/WorldNet/Install
  166. ' 1.  Changed fixup.exe to qwikfix.exe everywhere.
  167. ' 2.  Changed the Read Me icon to point to our readme file
  168. ' att\wnreadme.txt.
  169. ' 3.  Added line to delete worldnet.ico.
  170. ' 
  171. ' *****************  Version 1  *****************
  172. ' User: Lisa         Date: 11/07/95   Time: 5:15p
  173. ' Created in $/WorldNet/Install
  174. '============================================================================
  175.  
  176. '**************************************************************************
  177. '*                              Netscape Setup
  178. '**************************************************************************
  179.  
  180. '$DEFINE DEBUG  ''Define for script development/debugging
  181.  
  182. '$INCLUDE 'setupapi.inc'
  183. '$INCLUDE 'msdetect.inc'
  184. '$INCLUDE 'msregdb.inc'
  185.  
  186. ''Dialog ID's
  187. CONST WELCOME       = 100
  188. CONST ASKQUIT       = 200
  189. CONST PROGROUP      = 260
  190. CONST DESTPATH      = 300
  191. CONST EXITFAILURE   = 400
  192. CONST EXITQUIT      = 600
  193. CONST EXITSUCCESS   = 700
  194. CONST OPTIONS       = 800
  195. CONST APPHELP       = 900
  196. CONST REBOOT        = 1000
  197. CONST RESTART       = 1001
  198. CONST BADPATH       = 6400
  199. CONST EXISTING      = 160
  200. CONST BILLBOARD1    = 320
  201. CONST BILLBOARD2    = 340
  202. CONST BILLBOARD3    = 360
  203. CONST CUSTINST      = 6200
  204. CONST INSTALLTYPE   = 6500
  205. CONST TOOBIG        = 6300
  206.  
  207. ''Bitmap ID
  208. CONST LOGO = 1
  209.  
  210. ''File Types
  211. CONST APPFILES     = 1
  212. CONST STACKFILES   = 2
  213. CONST EUDORAFILES  = 3
  214.  
  215. GLOBAL DEST$        ''Default destination directory.
  216. GLOBAL SRC$         ''Default source directory
  217. GLOBAL WINDRIVE$    ''Windows drive letter.
  218.  
  219. ''CustInst list symbol names
  220. GLOBAL APPNEEDS$    ''Option list costs per drive
  221. GLOBAL STACKNEEDS$
  222. GLOBAL EUDORANEEDS$
  223. GLOBAL EXTRACOSTS$  ''List of extra costs to add per drive
  224. GLOBAL BIGLIST$     ''List of option files cost calc results (boolean)
  225.  
  226. ''Dialog list symbol names
  227. GLOBAL CHECKSTATES$
  228. GLOBAL STATUSTEXT$
  229. GLOBAL DRIVETEXT$
  230.  
  231. ' Constants used internaly to indicate which install
  232. ' configuration we are dealing with
  233. CONST NO_NET    = 0      ''No NDIS network currently installed
  234. CONST SOME_NET  = 1      ''Non-WFW NDIS network installed
  235. CONST WFW_NET   = 2      ''WFW network installed (not necessarily MultiNet, but uses "net start")
  236.  
  237. GLOBAL wNetType%         ''One of the constants above
  238. GLOBAL bReinstall%       ''User is reinstalling
  239. GLOBAL bRebootMachine%   ''Reboot machine or just restart Windows
  240. GLOBAL bISPMode%         ''Are we doing an ISP configuration?
  241. GLOBAL bRegOnlyMode%     ''Are we reg server only install?
  242. GLOBAL szISPName$        ''The name of the ISP if in ISP mode
  243.  
  244. ' Miscellaneous Windows constants not defined in existing .INC files
  245. CONST SW_MINIMIZE = 6
  246. CONST SW_RESTORE  = 9
  247.  
  248. CONST SW_SHOWNOACTIVATE = 4
  249. CONST SW_SHOW     = 5
  250.  
  251. CONST IDYES = 6
  252. CONST IDNO  = 7
  253.  
  254. CONST WNNC_NET_MultiNet         = &H8000
  255. CONST WNNC_SUBNET_WinWorkgroups = 4
  256. CONST WNNC_NET_TYPE             = 2
  257. CONST WNNC_NET_NONE             = 0
  258.  
  259. DECLARE FUNCTION FindWindow LIB "user" (szClassName$, szWindow$) AS INTEGER
  260. DECLARE FUNCTION ExitWindows LIB "user" (dwReturnCode&, nReserved%) AS INTEGER
  261. DECLARE SUB      ShowWindow LIB "user" (hwnd%, nCmdShow%)
  262. DECLARE FUNCTION WNetGetCaps LIB "user" (nIndex%) AS INTEGER
  263. DECLARE SUB      WinExec LIB "kernel" (szCmdLine$, nCmdShow%)
  264. DECLARE SUB      PostMessage LIB "user" (hwnd%, msg%, wParam%, lParam&)
  265. DECLARE FUNCTION RegisterWindowMessage LIB "user" (szMessage$) AS INTEGER
  266.  
  267. DECLARE FUNCTION IsWindows30 LIB "mscuistf.dll" () AS INTEGER
  268. DECLARE FUNCTION IsISPMode LIB "mscuistf.dll" (szPath$) AS INTEGER
  269. DECLARE FUNCTION IsRegOnlyMode LIB "mscuistf.dll" (szPath$) AS INTEGER
  270. DECLARE SUB      HandleMultipleConfigurations LIB "mscuistf.dll" ()
  271. DECLARE FUNCTION CommaListContains LIB "mscuistf.dll" (szStr1$, szStr2$) AS INTEGER
  272. DECLARE SUB      GetProtmanPath LIB "mscuistf.dll" (szBuf$)
  273. DECLARE FUNCTION InstallOemsetup LIB "mscuistf.dll" (szPath$) AS INTEGER
  274. DECLARE FUNCTION IsNTSWinsock LIB "mscuistf.dll" (szPath$) AS INTEGER
  275. DECLARE FUNCTION IsBadWin32s LIB "mscuistf.dll" () AS INTEGER
  276. DECLARE SUB      RemoveDirRecurse LIB "mscuistf.dll" (szPath$)
  277. DECLARE SUB      DeleteProgmanGroup LIB "mscuistf.dll" (szGroup$)
  278.  
  279. ' Helper routine to update NETSCAPE.INI if Netscape is installed in a
  280. ' directory other than C:\NETSCAPE
  281. DECLARE SUB      UpdateNetscapeIni LIB "mscuistf.dll" (szIniPath$)
  282.  
  283. ' Routines to modify a section of an .INI file
  284. DECLARE SUB      AddProfileString LIB "mscuistf.dll" (szFileName$, szSection$, szKey$, szValue$, szRef$)
  285. DECLARE SUB      RemoveProfileString LIB "mscuistf.dll" (szFileName$, szSection$, szKey$, szRef$)
  286.  
  287. ' Routines to modify batch files
  288. DECLARE FUNCTION BatchFileLoad LIB "mscuistf.dll" (szPath$) AS INTEGER
  289. DECLARE FUNCTION BatchFileSave LIB "mscuistf.dll" () AS INTEGER
  290. DECLARE SUB      BatchFileQuit LIB "mscuistf.dll" ()
  291. DECLARE FUNCTION BatchAddVariable LIB "mscuistf.dll" (szVar$, szValue$, szRefKey$, bInsertBefore%) AS INTEGER
  292. DECLARE FUNCTION BatchFindVariable LIB "mscuistf.dll" (szVar$, szBuf$, nBufLen%, bRestart%) AS INTEGER
  293. DECLARE FUNCTION BatchReplaceVariable LIB "mscuistf.dll" (szValue$) AS INTEGER
  294. DECLARE FUNCTION BatchRemoveVariable LIB "mscuistf.dll" AS INTEGER
  295. DECLARE FUNCTION BatchAddCmd LIB "mscuistf.dll" (szCmd$, szRefKey$, bInsertBefore%) AS INTEGER
  296. DECLARE FUNCTION BatchFindCmdReference LIB "mscuistf.dll" (szRefKey$, szBuf$, nBufLen%, bRestart%) AS INTEGER
  297. DECLARE FUNCTION BatchReplaceCmd LIB "mscuistf.dll" (szCmd$) AS INTEGER
  298. DECLARE FUNCTION BatchRemoveCmd LIB "mscuistf.dll" AS INTEGER
  299.  
  300. ' Local routines
  301. DECLARE SUB      Install
  302. DECLARE SUB      Deinstall
  303. DECLARE SUB      Deinstall12
  304. DECLARE SUB      CreateNewsDir (szNetscapeIni$, szNewsDir$)
  305. DECLARE SUB      CheckForOldVersion
  306. DECLARE SUB      AddProgramItems
  307. DECLARE SUB      UpdateSystemIni
  308. DECLARE SUB      UpdateAutoexec
  309. DECLARE SUB      UpdateConfigSys
  310. DECLARE SUB      UpdateProtocolIni
  311. DECLARE SUB      UpdateRegistry
  312. DECLARE SUB      AppendToKeynameValue (szExisting$, szAdd$)
  313. DECLARE FUNCTION BuildOemFileName (x%) AS STRING
  314. DECLARE SUB      AddOptFilesToCopyList (ftype%)
  315. DECLARE SUB      RecalcOptFiles (ftype%)
  316. DECLARE SUB      RecalcPath
  317. DECLARE SUB      SetDriveStatus
  318. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  319. DECLARE FUNCTION OfferToDeinstall () AS INTEGER
  320.  
  321. INIT:
  322.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  323.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  324.  
  325.     bReinstall% = 0
  326.     bRebootMachine% = 0
  327.  
  328.     SRC$ = GetSymbolValue("STF_SRCDIR")
  329.         
  330.     bISPMode = IsISPMode(SRC$)
  331.     bRegOnlyMode = IsRegOnlyMode(SRC$)
  332.     
  333.     IF bISPMode THEN
  334.         szInstallINI$ = SRC$ + "install.ini"
  335.         szISPName$ = GetIniKeyString(szInstallINI$, "Install Options", "ISPName")
  336.     END IF
  337.  
  338.     SetBitmap CUIDLL$, LOGO
  339.     szTitle$ = "AT&T WorldNet Services"
  340.     
  341.     IF bISPMode THEN
  342.         szTitle$ = szTitle$ + " for " + szISPName$
  343.     END IF
  344.  
  345.     SetTitle szTitle$
  346.  
  347.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  348.     IF szInf$ = "" THEN
  349.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  350.     END IF
  351.     ReadInfFile szInf$
  352.  
  353.     ' Check to make sure we are not running Windows 3.0
  354.     IF IsWindows30 THEN
  355.         i% = DoMsgBox("You must be running Windows 3.1 or Windows for Workgroups in order to install AT&T WorldNet Services.", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  356.         END
  357.     END IF
  358.  
  359.     ' See if the user is running a version of Win32s less than 1.2
  360.     IF IsBadWin32s() THEN
  361.         szErrText$ = "Version 1.2 of the AT&T WorldNet Services uses OLE 2.02, which is not compatible with this version of Win32s."
  362.         szErrText$ = szErrText + " You must upgrade to Win32s version 1.2 before installing the AT&T WorldNet Services."
  363.         szErrText$ = szErrText + Chr$(10) + "For more information, please read the AT&T WorldNet Services Troubleshooting Guide."
  364.         i% = DoMsgBox(szErrText$, "AT&T WorldNet Services", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  365.         END
  366.     END IF
  367.  
  368.     ' Launch our companion app to watch for us to terminate
  369.     WinExec MakePath(GetSymbolValue("STF_SRCDIR"), "watcher.exe"), SW_SHOWNOACTIVE
  370.  
  371.     WINDRIVE$ = MID$(GetWindowsDir, 1, 1)
  372.  
  373.     ' If there is an existing Netscape installation then use the current
  374.     ' directory as the default location; otherwise use \NETSCAPE
  375.     DEST$ = GetIniKeyString("WIN.INI", "Netscape", "ini")
  376.  
  377.     IF OfferToDeinstall  THEN
  378.         IF DEST$ = "" THEN
  379.             DEST$ = MID$(GetWindowsDir, 1, 1) + ":\WORLDNET"
  380.            ELSE
  381.             SPLITPATH DEST$, drv$, dir$, filename$, ext$
  382.             DEST$ = drv$ + MID$(dir$, 1, LEN(dir$) - 1)
  383.             END IF
  384. ELSE
  385.         IF DEST$ <> "" THEN
  386.             SPLITPATH DEST$, drv$, dir$, filename$, ext$
  387.             DEST$ = drv$ + MID$(dir$, 1, LEN(dir$) - 1)
  388.             szText$ = "AT&T WorldNet Services has detected a version of Netscape installed in the " 
  389.             szText$= szText$+DEST$+" directory.  This may be a LAN version, or a "
  390.             szText$= szText$+"Netscape browser that you use with your own stack and dialer."
  391.             szText$= szText$+"   AT&T WorldNet Services will be installed in the "
  392.             szText$=szText$+MID$(GetWindowsDir, 1, 1)+":\WORLDNET directory, "
  393.             szText$= szText$+"unless you specify a different directory using the Custom option later during this setup process.  " 
  394.             szText$=szText$+"After Setup and Registration are complete, it is strongly recommended that "
  395.             szText$=szText$+" you read the section of the Troubleshooting Guide titled 'If You Already Have Netscape Installed'." 
  396.             i% = DoMsgBox(szText$, "AT&T WorldNet Services", MB_OK+TASKMODAL+MB_ICONINFORMATION)
  397.         END IF
  398.         DEST$ = MID$(GetWindowsDir, 1, 1) + ":\WORLDNET"
  399.     END IF
  400.  
  401.     ' Check for an old version
  402.     CheckForOldVersion
  403.  
  404. WELCOME:
  405.     ' If there is an existing 1.2 configuration, then offer to let the user
  406.     ' deinstall the product
  407.     IF OfferToDeinstall THEN
  408.         sz$ = UIStartDlg(CUIDLL$, EXISTING, "FExistingDlgProc", APPHELP, HELPPROC$)
  409.         IF sz$ = "DEINSTALL" THEN
  410.             ' Get user to confirm
  411.             IF DoMsgBox("Are you sure you want to deinstall the software in the "+DEST$+" directory?", "AT&T WorldNet Services", MB_YESNO) = IDNO THEN
  412.             GOTO WELCOME
  413.             END IF
  414.  
  415.             ' Ask the user if they are sure they want to blow away the whole directory
  416.             szText$="Warning! Deinstalling this software will remove ALL files in the "+DEST$+" directory"
  417.             szText$ =szText$+", including ALL non-Netscape files that are in this directory.  Are you sure you want to deinstall?" 
  418.                 IF DoMsgBox(szText$, "AT&T WorldNet Services", MB_YESNO+MB_ICONHAND) = IDNO THEN
  419.             GOTO WELCOME
  420.             ENDIF
  421.     
  422.             UIPop 1
  423.             Deinstall
  424.             END
  425.         ELSEIF sz$ <> "CONTINUE" THEN
  426.             GOSUB ASKQUIT
  427.             GOTO WELCOME
  428.         ELSE
  429.             bReinstall% = 1
  430.             ' Change the network type to NO_NET. This way if either the user wants to
  431.             ' reinstall in a different directory or the existing installation is incomplete
  432.             ' (e.g. no NDIS directory) we do the correct thing
  433.             wNetType% = NO_NET
  434.         END IF
  435.     ELSE
  436.         sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  437.         IF sz$ <> "CONTINUE" THEN
  438.             GOSUB ASKQUIT
  439.             GOTO WELCOME
  440.         END IF
  441.     END IF
  442.     UIPop 1
  443.  
  444.     CHECKSTATES$ = "CheckItemsState"
  445.     FOR i% = 1 TO 3 STEP 1
  446.         AddListItem CHECKSTATES$, "ON"
  447.     NEXT i%
  448.  
  449. ASKINSTALL:
  450.     SetSymbolValue "RadioDefault", "1"
  451.     SetSymbolValue "InstallDir", DEST$
  452.  
  453. ASK1:
  454.     ''Find out whether the user wants a simple or custom install
  455.     sz$ = UIStartDlg(CUIDLL$, INSTALLTYPE, "FRadioDlgProc", APPHELP, HELPPROC$)
  456.     IF sz$ = "CONTINUE" THEN
  457.         UIPOP 1
  458.         IF GetSymbolValue("ButtonChecked") = "1" THEN
  459.             GOTO CHOOSEGROUP
  460.         END IF
  461.     ELSEIF sz$ = "REACTIVATE" THEN
  462.         GOTO ASK1
  463.     ELSE
  464.         GOSUB ASKQUIT
  465.         GOTO ASKINSTALL
  466.     END IF
  467.  
  468. SETUPCUSTINST:
  469.     ''CustInst list symbols
  470.     STATUSTEXT$  = "StatusItemsText"
  471.     DRIVETEXT$   = "DriveStatusText"
  472.     FOR i% = 1 TO 3 STEP 1
  473.         AddListItem STATUSTEXT$, ""
  474.     NEXT i%
  475.     FOR i% = 1 TO 3 STEP 1
  476.         AddListItem DRIVETEXT$, ""
  477.     NEXT i%
  478.     ReplaceListItem DRIVETEXT$, 3, DEST$
  479.  
  480.     ''Disk cost list symbols
  481.     APPNEEDS$    = "AppNeeds"
  482.     STACKNEEDS$  = "StackNeeds"
  483.     EUDORANEEDS$ = "EudoraNeeds"
  484.     EXTRACOSTS$  = "ExtraCosts"
  485.     BIGLIST$     = "BigList"
  486.     FOR i% = 1 TO 3 STEP 1
  487.         AddListItem BIGLIST$, ""
  488.     NEXT i%
  489.     FOR i% = 1 TO 26 STEP 1
  490.         AddListItem EXTRACOSTS$, "0"
  491.     NEXT i%
  492.  
  493.     RecalcPath
  494.     SetDriveStatus
  495.  
  496. CUSTINST:
  497.     sz$ = UIStartDlg(CUIDLL$, CUSTINST, "FCustInstDlgProc", APPHELP, HELPPROC$)
  498.  
  499.     ' Note that there is no CHK1 returned as a notification. That is because
  500.     ' we treat the APPFILES as CHK1
  501.     IF sz$ = "CONTINUE" THEN
  502.         ''Install only if it will fit.
  503.         FOR i% = 1 TO 3 STEP 1
  504.             IF GetListItem(BIGLIST$, i%) <> "" THEN
  505.             GOSUB TOOBIG
  506.             GOTO CUSTINST
  507.             END IF
  508.         NEXT i%
  509.         UIPop 1
  510.         GOTO CHOOSEGROUP
  511.     ELSEIF sz$ = "NEWPATH" THEN
  512.         DEST$ = GetListItem(DRIVETEXT$, 3)
  513.  
  514.         ''Truncate display if too long.
  515.         IF LEN(DEST$) > 23 THEN
  516.             ReplaceListItem DRIVETEXT$, 3, MID$(DEST$, 1, 23)+"..."
  517.         END IF
  518.  
  519.         RecalcPath
  520.         SetDriveStatus
  521.         GOTO CUSTINST
  522.     ELSEIF sz$ = "CHK2" THEN
  523.         CursorSave% = ShowWaitCursor()
  524.         RecalcOptFiles STACKFILES
  525.         SetDriveStatus
  526.         RestoreCursor CursorSave%
  527.         GOTO CUSTINST
  528.     ELSEIF sz$ = "CHK3" THEN
  529.         CursorSave% = ShowWaitCursor()
  530.         RecalcOptFiles EUDORAFILES
  531.         SetDriveStatus
  532.         RestoreCursor CursorSave%
  533.         GOTO CUSTINST
  534.     ELSEIF sz$ = "REACTIVATE" THEN
  535.         RecalcPath
  536.         SetDriveStatus
  537.         GOTO CUSTINST
  538.     ELSE
  539.         UIPop 1
  540.         GOTO ASKINSTALL
  541.     END IF
  542.  
  543. CHOOSEGROUP:
  544.     SetSymbolValue "ProgramGroup", "AT&T WorldNet Services"
  545.     Install
  546.  
  547. QUIT:
  548.     ON ERROR GOTO ERRQUIT
  549.  
  550.     IF ERR = 0 THEN
  551.         ' We need to check whether we need to reboot the machine or just
  552.         ' restart Windows
  553.         IF bRebootMachine% THEN
  554.             sz$ = UIStartDlg(CUIDLL$, REBOOT, "FRebootDlgProc", APPHELP, HELPPROC$)
  555.             IF sz$ = "REBOOT" THEN
  556.                 ' Signify that we want to reboot the machine
  557.                 PostMessage FindWindow("NWatcher:WndClass", NULL), RegisterWindowMessage("NWatcher"), 0, 0
  558.             END IF
  559.             UIPop 1
  560.         ELSE
  561.             sz$ = UIStartDlg(CUIDLL$, RESTART, "FRebootDlgProc", APPHELP, HELPPROC$)
  562.             IF sz$ = "REBOOT" THEN
  563.                 ' Signify that we want to restart Windows
  564.                 PostMessage FindWindow("NWatcher:WndClass", NULL), RegisterWindowMessage("NWatcher"), 1, 0
  565.             END IF
  566.             UIPop 1
  567.         END IF
  568.         END
  569.     ELSEIF ERR = STFQUIT THEN
  570.         dlg% = EXITQUIT
  571.     ELSE
  572.         dlg% = EXITFAILURE
  573.     END IF
  574. QUITL1:
  575.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  576.     IF sz$ = "REACTIVATE" THEN
  577.         GOTO QUITL1
  578.     END IF
  579.     UIPop 1
  580.     END
  581.  
  582. ERRQUIT:
  583.     i% = DoMsgBox("Setup sources were corrupted!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  584.     END
  585.  
  586. TOOBIG:
  587.     sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfo0DlgProc", 0, "")
  588.     IF sz$ = "REACTIVATE" THEN
  589.         RecalcPath
  590.         SetDriveStatus
  591.         GOTO TOOBIG
  592.     END IF
  593.     UIPop 1
  594.     RETURN
  595.  
  596. BADPATH:
  597.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  598.     IF sz$ = "REACTIVATE" THEN
  599.         GOTO BADPATH
  600.     END IF
  601.     UIPop 1
  602.     RETURN
  603.  
  604. ASKQUIT:
  605.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  606.  
  607.     IF sz$ = "EXIT" THEN
  608.         UIPopAll
  609.         ERROR STFQUIT
  610.     ELSEIF sz$ = "REACTIVATE" THEN
  611.         GOTO ASKQUIT
  612.     ELSE
  613.         UIPop 1
  614.     END IF
  615.     RETURN
  616.  
  617. '**
  618. '** Purpose:
  619. '**     Returns 1 if it is possible to deinstall an existing implementation
  620. '** Arguments:
  621. '**     none.
  622. '** Returns:
  623. '**     0 or 1.
  624. '*************************************************************************
  625. FUNCTION OfferToDeinstall STATIC AS INTEGER
  626.     cb% = 256
  627.     szBuf$ = STRING$(cb%, 32)
  628.  
  629.     OfferToDeinstall = 0
  630.  
  631.     ' Check for VTCPRAC.386 in the SYSTEM.INI file
  632.     IF BatchFileLoad(MakePath(GetWindowsDir, "SYSTEM.INI")) THEN
  633.         IF BatchFindCmdReference("VTCPRAC.386", szBuf$, cb%, 1) THEN
  634.             OfferToDeinstall = 1
  635.         END IF
  636.         BatchFileQuit
  637.     END IF
  638. END FUNCTION
  639.  
  640. '**
  641. '** Purpose:
  642. '**     Creates Netscape program group and associated program items
  643. '** Arguments:
  644. '**     none.
  645. '** Returns:
  646. '**     none.
  647. '*************************************************************************
  648. SUB AddProgramItems STATIC
  649.     'Show the Program Manager
  650.     ShowWindow FindWindow("PROGMAN", NULL), SW_RESTORE
  651.  
  652.     '' Update program group and program items
  653.     'Group$ = GetSymbolValue("ProgramGroup")
  654.     'CreateProgmanGroup Group$, "", cmoNone
  655.     'ShowProgmanGroup  Group$, 1, cmoNone
  656.     'SLEEP 1
  657.  
  658.     '' Program item for README file
  659.     'CreateProgmanItem Group$, "Trouble Shooting Guide", MakePath(GetWindowsDir, "NOTEPAD.EXE") +" "+ MakePath(DEST$, "ATT\WNREADME.TXT"), "", cmoOverwrite
  660.     'CreateProgmanItem Group$, "Customer Care Tools", MakePath(DEST$, "ATT\CUSTCARE.EXE"), "", cmoOverwrite
  661.  
  662.     'IF GetListItem(CHECKSTATES$, STACKFILES) = "ON" THEN
  663.         '' Program item for signup.exe
  664.         'IF bISPMode THEN
  665.             'szLabel$ = "Setup " + szISPName + " Account"
  666.             ''CreateProgmanItem Group$, szLabel$, MakePath(DEST$, "DIALER\SIGNUP.EXE ISP.SR"), "", cmoOverwrite
  667.             'CreateProgmanItem Group$, szLabel$, MakePath(DEST$, "ATT\GROUPRST.EXE ADVISOR.EXE SIGNUP2"), MakePath(DEST$, "DIALER\SIGNUP.EXE"), cmoOverwrite
  668.         'ELSEIF bRegOnlyMode THEN
  669.             ''CreateProgmanItem Group$, "Registration Wizard", MakePath(DEST$, "DIALER\SIGNUP.EXE -r"), "", cmoOverwrite
  670.             'CreateProgmanItem Group$, "Registration Wizard", MakePath(DEST$, "ATT\ GROUPRST.EXE ADVISOR.EXE SIGNUP3"), MakePath(DEST$, "DIALER\SIGNUP.EXE"), cmoOverwrite
  671.         'ELSE
  672.             ''CreateProgmanItem Group$, "Registration Wizard", MakePath(DEST$, "DIALER\SIGNUP.EXE"), "", cmoOverwrite
  673.              'CreateProgmanItem Group$, "Registration Wizard", MakePath(DEST$, "ATT\ GROUPRST.EXE ADVISOR.EXE SIGNUP"), MakePath(DEST$, "DIALER\SIGNUP.EXE"), cmoOverwrite
  674.             'END IF
  675.     'ELSE
  676.         '' Program item for netscape.exe
  677.         'CreateProgmanItem Group$, "Netscape", MakePath(DEST$, "NETSCAPE.EXE"), "", cmoOverwrite
  678.  
  679.         'IF GetListItem(CHECKSTATES$, EUDORAFILES) = "ON" THEN
  680.             'CreateProgmanItem Group$, "Eudora Light email", MakePath(DEST$, "EUDORA.EXE"), "", cmoOverwrite
  681.         'END IF
  682.     'END IF
  683.  
  684.     ' QwikFix is now responsible for creating the program group
  685.     ' instead of the commented code above
  686.  
  687.     WinExec MakePath(DEST$, "ATT\GROUPRST.EXE"), SW_SHOWNOACTIVE
  688.     SLEEP 2 
  689.  
  690.     ' 24323 is the decimal representation of hex 5F03 which represents
  691.     ' version 3.95 (i.e., Windows 95)
  692.  
  693.     IF GetVersion() >= 24323 THEN
  694.  
  695. QWIKFIXDONEYET:
  696.     ' Loop until the QwikFix window class is removed, indicating
  697.     ' that QwikFix is exiting and has created the program group.
  698.     ' This delays setup from proceeding so the program group does
  699.     ' not cover up the upcoming message box from setup, allowing 
  700.     ' the user to finish setup properly.  This only occurs in Win 95.
  701.  
  702.         IF FindWindow("GroupRstMainWndClassMRA", NULL) THEN
  703.         SLEEP 1
  704.         GOTO QWIKFIXDONEYET
  705.         END IF
  706.  
  707.     END IF
  708.  
  709. END SUB
  710.  
  711. '**
  712. '** Purpose:
  713. '**     Adds a registry association for the dialer application
  714. '** Arguments:
  715. '**     none.
  716. '** Returns:
  717. '**     none.
  718. '*************************************************************************
  719. SUB UpdateRegistry STATIC
  720.     ' Create a root entry called .SR associated with "NetscapePersonalEdition"
  721.     CreateRegKeyValue ".sr", "NetscapePersonalEdition"
  722.  
  723.     ' Create a Root entry called "NetscapePersonalEdition"
  724.     CreateRegKeyValue "NetscapePersonalEdition", "Netscape Connection File"
  725.  
  726.     ' Set the command line for "NetscapePersonalEdition"
  727.     CreateRegKeyValue "NetscapePersonalEdition\shell\open\command", MakePath(DEST$, "DIALER\DIALER.EXE")+" %1"
  728. END SUB
  729.  
  730. '**
  731. '** Purpose:
  732. '**     Adds a new value to the keyname value if it isn't already present
  733. '** Arguments:
  734. '**     none.
  735. '** Returns:
  736. '**     none.
  737. '*************************************************************************
  738. SUB AppendToKeynameValue (szExisting$, szAdd$) STATIC
  739.     IF szExisting$ = "" THEN
  740.         szExisting$ = szAdd$
  741.     ELSEIF CommaListContains(szExisting$, szAdd$) = 0 THEN
  742.         szExisting$ = szExisting$+","+szAdd$
  743.     END IF
  744. END SUB
  745.  
  746. '**
  747. '** Purpose:
  748. '**     Makes the necessary changes to the Windows SYSTEM.INI file
  749. '** Arguments:
  750. '**     none.
  751. '** Returns:
  752. '**     none.
  753. '*************************************************************************
  754. SUB UpdateSystemIni STATIC
  755.     szSysIni$ = MakePath(GetWindowsDir, "SYSTEM.INI")
  756.  
  757.     IF IsFileWritable(szSysIni$) = 0 THEN
  758.         i% = DoMsgBox("Setup is unable to modify "+szSysIni$+". File is read only.", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  759.         END
  760.     END IF
  761.  
  762.     ' Shiva specific changes
  763.     AddProfileString szSysIni$, "386Enh", "device", MakePath(DEST$, "system\dial.386"), "dial.386"
  764.     AddProfileString szSysIni$, "386Enh", "device", MakePath(DEST$, "system\pdwcomm.386"), "pdwcomm.386"
  765.     CreateIniKeyValue szSysIni$, "Network", "SessTimeout", "240", cmoOverwrite
  766.     CreateIniKeyValue szSysIni$, "ShivaPPP", "ClaimPort", "1", cmoNone
  767.  
  768.     ' NTS specific changes
  769.     CreateIniKeyValue szSysIni$, "VNTSTIMD", "NumTCBs", "255", cmoOverwrite
  770.     AddProfileString szSysIni$, "386Enh", "device", MakePath(DEST$, "system\vtcprac.386"), "vtcprac.386"
  771.     AddProfileString szSysIni$, "386Enh", "device", MakePath(DEST$, "system\vntstimd.exe"), "vntstimd.exe"
  772. END SUB
  773.  
  774. '**
  775. '** Purpose:
  776. '**     Checks for an old version of Personal Edition
  777. '** Arguments:
  778. '**     none.
  779. '** Side Effects:
  780. '**     sets wNetType%
  781. '** Returns:
  782. '**     none.
  783. '*************************************************************************
  784. SUB CheckForOldVersion STATIC
  785.     cb% = 256
  786.     szBuf$ = STRING$(cb%, 32)
  787.  
  788.     ' We cannot tell conclusively by using WNetGetCaps what the
  789.     ' configuration is, so we must look for some other things instead
  790.     ret% = BatchFileLoad("C:\AUTOEXEC.BAT")
  791.     bNetStart% = BatchFindCmdReference("NET START", szBuf$, cb%, 1)
  792.     bNetbind% = BatchFindCmdReference("NETBIND", szBuf$, cb%, 1)
  793.     BatchFileQuit
  794.  
  795.     IF bNetStart% THEN
  796.         wNetType% = WFW_NET
  797.     ELSEIF bNetbind% THEN
  798.         wNetType% = SOME_NET
  799.     ELSE
  800.         wNetType% = NO_NET
  801.     END IF
  802.  
  803.     ' See if an old version of 1.2 PE is installed on the machine
  804.     ' Check for DIALNDIS.EXE in the CONFIG.SYS file
  805.     IF BatchFileLoad("c:\config.sys") THEN
  806.         IF BatchFindCmdReference("DIALNDIS.EXE", szBuf$, cb%, 1) THEN
  807.             ' Prompt the user before doing this
  808.             IF DoMsgBox("You must deinstall Netscape Personal Edition version 1.2 before installing this version. Do you want to deinstall now?", "AT&T WorldNet Services", MB_YESNO) = IDNO THEN
  809.                 BatchFileQuit
  810.                 END
  811.             ELSE
  812.                 BatchFileQuit
  813.                 Deinstall12
  814.             END IF
  815.         ELSE
  816.             BatchFileQuit
  817.         END IF
  818.  
  819.     ELSE
  820.         ' Check for DIALNDIS.EXE in SYSTEM.INI
  821.         IF BatchFileLoad(MakePath(GetWindowsDir, "SYSTEM.INI")) THEN
  822.             IF BatchFindCmdReference("DIALNDIS.EXE", szBuf$, cb%, 1) THEN
  823.                 i% = DoMsgBox("You must deinstall version 1.2 of Netscape Navigator Personal Edition before installing this software.", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  824.                 BatchFileQuit
  825.                 END
  826.             END IF
  827.             BatchFileQuit
  828.         END IF
  829.     END IF
  830. END SUB
  831.  
  832. '**
  833. '** Purpose:
  834. '**     Creates specified news directory
  835. '** Arguments:
  836. '**     Path to Netscape INI file and directory to create.
  837. '** Returns:
  838. '**     none.
  839. '*************************************************************************
  840. SUB CreateNewsDir (szNetscapeIni$, szNewsDir$) STATIC
  841.     ' Check for a file with the same name as the directory we are trying to create
  842.     IF DoesFileExist(szNewsDir$, femExists) THEN
  843.         ' Try using MOZNEWS as the directory name
  844.         IF DoesFileExist(MakePath(DEST$, "MOZNEWS"), fmExists) = 0 THEN
  845.             CreateDir MakePath(DEST$, "MOZNEWS"), cmoNone
  846.  
  847.             ' Add a line to the Netscape INI file pointing to the news directory
  848.             CreateIniKeyValue szNetscapeIni$, "News", "News Directory", MakePath(DEST$, "MOZNEWS"), cmoOverwrite
  849.         END IF
  850.     ELSE
  851.         CreateDir szNewsDir$, cmoNone
  852.  
  853.         ' Add a line to the Netscape INI file pointing to the news directory
  854.         CreateIniKeyValue szNetscapeIni$, "News", "News Directory", szNewsDir$, cmoOverwrite
  855.     END IF
  856. END SUB
  857.  
  858. '**
  859. '** Purpose:
  860. '**     Deinstalls the product
  861. '** Arguments:
  862. '**     none.
  863. '** Returns:
  864. '**     none.
  865. '*************************************************************************
  866. SUB Deinstall STATIC
  867.     cb% = 256
  868.     szBuf$ = STRING$(cb%, 32)
  869.  
  870.     ' Clean up WIN.INI entries except for the Navigator itself
  871.     RemoveIniKey "WIN.INI", "Netscape", "dialer", cmoNone
  872.     RemoveIniKey "WIN.INI", "Netscape", "eudora", cmoNone
  873.  
  874.     ' Next remove device drivers from SYSTEM.INI
  875.     szSysIni$ = MakePath(GetWindowsDir, "SYSTEM.INI")
  876.     IF IsFileWritable(szSysIni$) = 0 THEN
  877.         i% = DoMsgBox("Setup is unable to modify "+szSysIni$+". File is read only.", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  878.         END
  879.     END IF
  880.  
  881.     RemoveProfileString szSysIni$, "386Enh", "device", "dial.386"
  882.     RemoveProfileString szSysIni$, "386Enh", "device", "pdwcomm.386"
  883.     RemoveProfileString szSysIni$, "386Enh", "device", "vtcprac.386"
  884.     RemoveProfileString szSysIni$, "386Enh", "device", "vntstimd.exe"
  885.     RemoveIniSection szSysIni$, "VNTSTIMD", cmoNone
  886.     RemoveIniSection szSysIni$, "ShivaPPP", cmoNone
  887.  
  888.     IF DoesFileExist(MakePath(GetWindowsDir, "NTS.INI"), femExists) THEN
  889.         RemoveFile MakePath(GetWindowsDir, "NTS.INI"), cmoNone
  890.     END IF
  891.  
  892.     ' Remove the WINSOCK.DLL from the Netscape directory
  893.     IF DoesFileExist(MakePath(DEST$, "WINSOCK.DLL"), femExists) THEN
  894.         RemoveFile MakePath(DEST$, "WINSOCK.DLL"), cmoNone
  895.     END IF
  896.  
  897.     ' Remove the program manager group
  898.     DeleteProgmanGroup "AT&T WorldNet Services"
  899.  
  900.     ' Ask the user if they want to blow away the whole NETSCAPE directory
  901.  '   IF DoMsgBox("Would you like Setup to delete the "+DEST$+" directory?", "AT&T WorldNet 'Services", MB_YESNO) = IDYES THEN
  902.         RemoveIniSection "WIN.INI", "Netscape", cmoNone
  903.         IF DoesDirExist( MakePath(DEST$, "att") ) THEN
  904.             RemoveFile MakePath(DEST$, "att\comport.dll"), cmoForce
  905.             RemoveFile MakePath(DEST$, "att\ctl3d.dll"), cmoForce
  906.             RemoveFile MakePath(DEST$, "att\advisor.exe"), cmoForce
  907.             RemoveFile MakePath(DEST$, "att\wnsysrpt.exe"), cmoForce
  908.             RemoveFile MakePath(DEST$, "att\grouprst.exe"), cmoForce
  909.             RemoveFile MakePath(DEST$, "att\getaccnt.exe"), cmoForce
  910.             RemoveFile MakePath(DEST$, "att\qwikfix.exe"), cmoForce
  911.             RemoveFile MakePath(DEST$, "att\launch16.exe"), cmoForce
  912.             RemoveFile MakePath(DEST$, "att\qwiklook.exe"), cmoForce
  913.             RemoveFile MakePath(DEST$, "att\custcare.exe"), cmoForce
  914.             RemoveFile MakePath(DEST$, "att\custcare.bmp"), cmoForce
  915.             RemoveFile MakePath(DEST$, "att\advisor.hlp"), cmoForce
  916.             RemoveFile MakePath(DEST$, "att\wnsysrpt.hlp"), cmoForce
  917.             RemoveFile MakePath(DEST$, "att\launch16.hlp"), cmoForce
  918.             RemoveFile MakePath(DEST$, "att\qwiklook.hlp"), cmoForce
  919.             RemoveFile MakePath(DEST$, "att\worldnet.ico"), cmoForce
  920.             RemoveFile MakePath(DEST$, "att\regwiz.ico"), cmoForce
  921.             RemoveFile MakePath(DEST$, "att\dialer.ico"), cmoForce
  922.             RemoveFile MakePath(DEST$, "att\modems.inf"), cmoForce
  923.             RemoveFile MakePath(DEST$, "att\advisor.ini"), cmoForce
  924.             RemoveFile MakePath(DEST$, "att\wnsysrpt.ini"), cmoForce
  925.             RemoveFile MakePath(DEST$, "att\grouprst.ini"), cmoForce
  926.             RemoveFile MakePath(DEST$, "att\launcher.ini"), cmoForce
  927.             RemoveFile MakePath(DEST$, "att\modems.ini"), cmoForce
  928.             RemoveFile MakePath(DEST$, "att\qwiklook.ini"), cmoForce
  929.             RemoveFile MakePath(DEST$, "att\qwikfix.ini"), cmoForce
  930.             RemoveFile MakePath(DEST$, "att\wnreadme.txt"), cmoForce
  931.             RemoveFile MakePath(DEST$, "att"), cmoForce
  932.         END IF
  933.         IF DoesDirExist(DEST$) THEN
  934.             RemoveDirRecurse DEST$
  935.         END IF
  936.   '  END IF
  937.     i% = DoMsgBox("The software has been succesfully deinstalled.  Run Setup again to reinstall.", "AT&T WorldNet Services", MB_OK)
  938. END SUB
  939.  
  940. '**
  941. '** Purpose:
  942. '**     Deinstalls the 1.2 product
  943. '** Arguments:
  944. '**     none.
  945. '** Returns:
  946. '**     none.
  947. '*************************************************************************
  948. SUB Deinstall12 STATIC
  949.     cb% = 256
  950.     szBuf$ = STRING$(cb%, 32)
  951.  
  952.     ' First handle CONFIG.SYS
  953.     IF IsFileWritable("c:\config.sys") = 0 THEN
  954.         i% = DoMsgBox("Setup is unable to modify CONFIG.SYS. File is read only.", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  955.         END
  956.     END IF
  957.  
  958.     IF BatchFileLoad("c:\config.sys") THEN
  959.         IF BatchFindCmdReference(MakePath(DEST$, "NDIS\PROTMAN.DOS"), szBuf$, cb%, 1) THEN
  960.             ret% = BatchRemoveCmd
  961.         END IF
  962.  
  963.         IF BatchFindCmdReference("DIALNDIS.EXE", szBuf$, cb%, 1) THEN
  964.             ret% = BatchRemoveCmd
  965.         END IF
  966.  
  967.         IF BatchFindCmdReference("VTCPRMT.EXE", szBuf$, cb%, 1) THEN
  968.             ret% = BatchRemoveCmd
  969.         END IF
  970.  
  971.         IF BatchFileSave = 0 THEN
  972.             i% = DoMsgBox("Setup was unable to modify CONFIG.SYS.", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  973.             END
  974.         END IF
  975.     END IF
  976.  
  977.     ' Next handle AUTOEXEC.BAT
  978.     IF IsFileWritable("c:\autoexec.bat") = 0 THEN
  979.         i% = DoMsgBox("Setup is unable to modify AUTOEXEC.BAT. File is read only.", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  980.         END
  981.     END IF
  982.  
  983.     IF BatchFileLoad("c:\autoexec.bat") THEN
  984.         IF BatchFindVariable("SHIVA", szBuf$, cb%, 1) THEN
  985.             ret% = BatchRemoveVariable
  986.         END IF
  987.  
  988.         IF BatchFindCmdReference(MakePath(DEST$, "NDIS\NETBIND"), szBuf$, cb%, 1) THEN
  989.             ret% = BatchRemoveCmd
  990.         END IF
  991.     
  992.         IF BatchFileSave = 0 THEN
  993.             i% = DoMsgBox("Setup was unable to modify AUTOEXEC.BAT.", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  994.             END
  995.         END IF
  996.     END IF
  997.  
  998.     ' Clean up WIN.INI entries except for the Navigator itself
  999.     RemoveIniKey "WIN.INI", "Netscape", "dialer", cmoNone
  1000.     RemoveIniKey "WIN.INI", "Netscape", "eudora", cmoNone
  1001.  
  1002.     ' Next remove device drivers from SYSTEM.INI
  1003.     szSysIni$ = MakePath(GetWindowsDir, "SYSTEM.INI")
  1004.     IF IsFileWritable(szSysIni$) = 0 THEN
  1005.         i% = DoMsgBox("Setup is unable to modify "+szSysIni$+". File is read only.", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  1006.         END
  1007.     END IF
  1008.  
  1009.     RemoveProfileString szSysIni$, "386Enh", "device", "dial.386"
  1010.     RemoveProfileString szSysIni$, "386Enh", "device", "pdwcomm.386"
  1011.     RemoveProfileString szSysIni$, "386Enh", "device", "vntstimd.exe"
  1012.     RemoveIniSection szSysIni$, "VNTSTIMD", cmoNone
  1013.  
  1014.     ' Now remove all files that we added to the Windows and the System directories
  1015.     IF DoesFileExist(MakePath(GetWindowsDir, "DIALNDIS.EXE"), femExists) THEN
  1016.         RemoveFile MakePath(GetWindowsDir, "DIALNDIS.EXE"), cmoNone
  1017.     END IF
  1018.  
  1019.     IF DoesFileExist(MakePath(GetWindowsDir, "VTCPRMT.EXE"), femExists) THEN
  1020.         RemoveFile MakePath(GetWindowsDir, "VTCPRMT.EXE"), cmoNone
  1021.     END IF
  1022.  
  1023.     IF DoesFileExist(MakePath(GetWindowsSysDir, "VNTSTIMD.EXE"), femExists) THEN
  1024.         RemoveFile MakePath(GetWindowsSysDir, "VNTSTIMD.EXE"), cmoNone
  1025.     END IF
  1026.  
  1027.     IF DoesFileExist(MakePath(GetWindowsSysDir, "DIAL.386"), femExists) THEN
  1028.         RemoveFile MakePath(GetWindowsSysDir, "DIAL.386"), cmoNone
  1029.     END IF
  1030.  
  1031.     IF DoesFileExist(MakePath(GetWindowsDir, "NTS.INI"), femExists) THEN
  1032.         RemoveFile MakePath(GetWindowsDir, "NTS.INI"), cmoNone
  1033.     END IF
  1034.  
  1035.     ' Remove the WINSOCK.DLL from the Netscape directory
  1036.     IF DoesFileExist(MakePath(DEST$, "WINSOCK.DLL"), femExists) THEN
  1037.         RemoveFile MakePath(DEST$, "WINSOCK.DLL"), cmoNone
  1038.     END IF
  1039.  
  1040.     ' We need to reboot the machine when we're done
  1041.     bRebootMachine% = 1
  1042. END SUB
  1043.  
  1044. '**
  1045. '** Purpose:
  1046. '**     Builds the copy list and performs all installation operations.
  1047. '** Arguments:
  1048. '**     none.
  1049. '** Returns:
  1050. '**     none.
  1051. '*************************************************************************
  1052. SUB Install STATIC
  1053.     cb% = 256
  1054.     szBuf$ = STRING$(cb%, 32)
  1055.  
  1056.     szSrcDir$ = GetSymbolValue("STF_SRCDIR")
  1057.  
  1058.     ' Create user specified directory and CACHE sub-directory
  1059.     CreateDir DEST$, cmoNone
  1060.     CreateDir MakePath(DEST$, "CACHE"), cmoNone
  1061.  
  1062.     ' Add files to copy
  1063.     ClearCopyList
  1064.     AddOptFilesToCopyList APPFILES
  1065.     AddOptFilesToCopyList STACKFILES
  1066.     AddOptFilesToCopyList EUDORAFILES
  1067.     
  1068.     IF bISPMode THEN
  1069.         AddSectionFilesToCopyList "ISP", SRC$, DEST$
  1070.     END IF
  1071.  
  1072.     ' Add some billboards
  1073.     IF bISPMode THEN
  1074.         AddToBillboardList "mscuistf.dll", BILLBOARD1, "FModelessDlgProc", 1
  1075.         AddToBillboardList "mscuistf.dll", BILLBOARD2, "FModelessDlgProc", 1
  1076.     ELSE
  1077.         AddToBillboardList "mscuistf.dll", BILLBOARD1, "FModelessDlgProc", 1
  1078.         AddToBillboardList "mscuistf.dll", BILLBOARD2, "FModelessDlgProc", 1
  1079.         'AddToBillboardList "mscuistf.dll", BILLBOARD3, "FModelessDlgProc", 1
  1080.     END IF
  1081.  
  1082.     ' Do the actual copy
  1083.     SetCopyGaugePosition 85, 130
  1084.     CopyFilesInCopyList
  1085.  
  1086.     ' Merge OLE2 registration into system registry
  1087.     WinExec "REGEDIT /S OLE2.REG", SW_SHOW
  1088.     
  1089.     ' Modify launcher.ini to reflect the correct path names
  1090.     CreateIniKeyValue MakePath(DEST$, "att\advisor.ini"), "Netscape", "app1", DEST$+",netscape.exe", cmoOverwrite 
  1091.     CreateIniKeyValue MakePath(DEST$, "att\advisor.ini"), "Netscape", "ignore1", "winsock,"+MakePath(DEST$, "winsock.dll"), cmoOverwrite 
  1092.     CreateIniKeyValue MakePath(DEST$, "att\advisor.ini"), "AttDial", "app1", MakePath(DEST$, "dialer")+",dialer.exe att.sr", cmoOverwrite 
  1093.     CreateIniKeyValue MakePath(DEST$, "att\advisor.ini"), "AttDial", "ignore1", "winsock,"+MakePath(DEST$, "winsock.dll"), cmoOverwrite 
  1094.     CreateIniKeyValue MakePath(DEST$, "att\advisor.ini"), "Eudora", "app1", DEST$+",eudora.exe "+DEST$+"\eudora", cmoOverwrite 
  1095.     CreateIniKeyValue MakePath(DEST$, "att\advisor.ini"), "Eudora", "ignore1", "winsock,"+MakePath(DEST$, "winsock.dll"), cmoOverwrite 
  1096.     CreateIniKeyValue MakePath(DEST$, "att\advisor.ini"), "Signup", "app1", MakePath(Dest$, "dialer")+",signup.exe", cmoOverwrite 
  1097.     CreateIniKeyValue MakePath(DEST$, "att\advisor.ini"), "Signup", "ignore1", "winsock,"+MakePath(DEST$, "winsock.dll"), cmoOverwrite 
  1098.     CreateIniKeyValue MakePath(DEST$, "att\advisor.ini"), "Signup2", "app1", MakePath(Dest$, "dialer")+",signup.exe isp.sr", cmoOverwrite 
  1099.     CreateIniKeyValue MakePath(DEST$, "att\advisor.ini"), "Signup2", "ignore1", "winsock,"+MakePath(DEST$, "winsock.dll"), cmoOverwrite 
  1100.     CreateIniKeyValue MakePath(DEST$, "att\advisor.ini"), "Signup3", "app1", MakePath(Dest$, "dialer")+",signup.exe -r", cmoOverwrite 
  1101.     CreateIniKeyValue MakePath(DEST$, "att\advisor.ini"), "Signup3", "ignore1", "winsock,"+MakePath(DEST$, "winsock.dll"), cmoOverwrite 
  1102.     CreateIniKeyValue MakePath(DEST$, "att\advisor.ini"), "Advisor", "Dialer", MakePath(DEST$, "dialer\dialer.exe"), cmoOverwrite 
  1103.  
  1104.     ' Modify the win.ini file to have a [Netscape] section with a keyname-value
  1105.     ' pair for the Netscape INI file location and for the dialer
  1106.     CreateIniKeyValue "WIN.INI", "Netscape", "ini", MakePath(DEST$, "NETSCAPE.INI"), cmoOverwrite
  1107.  
  1108.     IF GetListItem(CHECKSTATES$, STACKFILES) = "ON" THEN
  1109.         CreateIniKeyValue "WIN.INI", "Netscape", "dialer", MakePath(DEST$, "DIALER"), cmoOverwrite
  1110.     END IF
  1111.  
  1112.     IF GetListItem(CHECKSTATES$, EUDORAFILES) = "ON" THEN
  1113.         CreateIniKeyValue "WIN.INI", "Netscape", "eudora", MakePath(DEST$, "EUDORA"), cmoOverwrite
  1114.     END IF
  1115.  
  1116.     szNetscapeIni$ = MakePath(DEST$, "NETSCAPE.INI")
  1117.  
  1118.     ' If the user specified an installation location other than the default
  1119.     ' location, then update the netscape.ini file accordingly
  1120.     IF DEST$ <> "C:\NETSCAPE" THEN
  1121.         UpdateNetscapeIni szNetscapeIni$
  1122.     END IF
  1123.  
  1124.     ' See if there is a news directory specified in the INI file
  1125.     szNewsDir$ = GetIniKeyString(szNetscapeIni$, "News", "News Directory")
  1126.     IF szNewsDir$ = "" THEN
  1127.         CreateNewsDir szNetscapeIni$, MakePath(DEST$, "NEWS")
  1128.     ELSEIF DoesDirExist(szNewsDir$) = 0 THEN
  1129.         CreateNewsDir szNetscapeIni$, szNewsDir$
  1130.     END IF
  1131.  
  1132.     ' Check to see if the NEWSRC file specified in the NETSCAPE.INI actually exists
  1133.     szNewsRC$ = GetIniKeyString(szNetscapeIni$, "Main", "News RC")
  1134.     IF szNewsRC$ <> "" THEN
  1135.         IF DoesFileExist(szNewsRC$, femExists) = 0 THEN
  1136.             ' Make the default NEWSRC file be in the NEWS sub-directory
  1137.             CreateIniKeyValue szNetscapeIni$, "Main", "News RC", MakePath(DEST$, "NEWS\NEWSRC"), cmoOverwrite
  1138.         END IF
  1139.     END IF
  1140.  
  1141.     ' Setup Netscape to use the audio player as an external viewer
  1142.     CreateIniKeyValue szNetscapeIni$, "Viewers", "audio/basic", MakePath(DEST$, "NAPLAYER.EXE"), cmoOverwrite
  1143.     CreateIniKeyValue szNetscapeIni$, "Viewers", "audio/x-aiff", MakePath(DEST$, "NAPLAYER.EXE"), cmoOverwrite
  1144.     CreateIniKeyValue szNetscapeIni$, "Suffixes", "audio/basic", "au,snd", cmoOverwrite
  1145.     CreateIniKeyValue szNetscapeIni$, "Suffixes", "audio/x-aiff", "aif,aiff,aifc", cmoOverwrite
  1146.  
  1147.     IF GetListItem(CHECKSTATES$, STACKFILES) = "ON" THEN
  1148.         ' Create NTS.INI file with WINSOCK section
  1149.         CreateIniKeyValue MakePath(GetWindowsDir, "NTS.INI"), "WINSOCK", "ETCDIR", MakePath(DEST$, "DIALER"), cmoOverwrite
  1150.  
  1151.         CreateIniKeyValue MakePath(GetWindowsDir, "NTS.INI"), "Installation", "PATH", MakePath(DEST$, "DIALER"), cmoOverwrite
  1152.  
  1153.         ' Backup the files we are going to change (only do this once)
  1154.         IF DoesFileExist(MakePath(DEST$, "system.ini"), femExists) = 0 THEN
  1155.             CopyFile MakePath(GetWindowsDir, "system.ini"), MakePath(DEST$, "system.ini"), cmoNone, 0
  1156.         END IF
  1157.  
  1158.         ' Update the system.ini file
  1159.         UpdateSystemIni
  1160.  
  1161.         ' Make sure the SHIVA environment variable isn't set. If it is then make sure it is correct
  1162.         IF BatchFileLoad("c:\autoexec.bat") THEN
  1163.             IF BatchFindVariable("SHIVA", szBuf$, cb%, 1) THEN
  1164.                 ret% = BatchReplaceVariable(MakePath(DEST$, "DIALER"))
  1165.                 IF BatchFileSave = 0 THEN
  1166.                     i% = DoMsgBox("Setup was unable to modify AUTOEXEC.BAT.", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  1167.                     END
  1168.                 END IF
  1169.                 bRebootMachine% = 1
  1170.             ELSE
  1171.                 BatchFileQuit
  1172.             END IF
  1173.         END IF
  1174.  
  1175.         ' Add a registry association for the dialer
  1176.         UpdateRegistry
  1177.     END IF
  1178.  
  1179.     ' Add a program group and associated program items
  1180.     AddProgramItems
  1181.  
  1182.     IF GetListItem(CHECKSTATES$, STACKFILES) = "ON" THEN
  1183.         IF bReinstall% = 0 THEN
  1184.             ' Inform the user that we have modified their files
  1185.             szText$ = "Setup has modified your SYSTEM.INI file"
  1186.             szText$ = szText$ + ". A copy of the old file has been placed in directory " + DEST$
  1187.             i% = DoMsgBox(szText$, "AT&T WorldNet Services", MB_OK)
  1188.             szText$ = ""
  1189.         END IF
  1190.     END IF
  1191. END SUB
  1192.  
  1193. '**
  1194. '** Purpose:
  1195. '**     Adds the specified option files to the copy list.
  1196. '** Arguments:
  1197. '**     ftype%  - type of files to add, one of the following:
  1198. '**             APPFILES, STACKFILES, EUDORAFILES
  1199. '** Returns:
  1200. '**     none.
  1201. '*************************************************************************
  1202. SUB AddOptFilesToCopyList (ftype%) STATIC
  1203.     IF GetListItem(CHECKSTATES$, ftype%) = "ON" THEN
  1204.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  1205.  
  1206.     IF ftype% = APPFILES THEN
  1207.         AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  1208.         AddSectionFilesToCopyList "OLE2", SrcDir$, GetWindowsSysDir
  1209.  
  1210.     ELSEIF ftype% = STACKFILES THEN
  1211.         AddSectionFilesToCopyList "DIALER", SrcDir$, DEST$
  1212.         AddSectionFilesToCopyList "CTL3D", SrcDir$, GetWindowsSysDir
  1213.         AddSectionFilesToCopyList "SYSTEM", SrcDir$, DEST$
  1214.  
  1215.     ELSEIF ftype% = EUDORAFILES THEN
  1216.         AddSectionFilesToCopyList "EUDORA", SrcDir$, DEST$
  1217.     END IF
  1218.     SrcDir$ = ""
  1219.     END IF
  1220. END SUB
  1221.  
  1222. '**
  1223. '** Purpose:
  1224. '**     Recalculates disk space for the given option files and sets
  1225. '**     the status info symbol "StatusItemsText".
  1226. '** Arguments:
  1227. '**     ftype% - type of files to add, one of the following:
  1228. '**             APPFILES, STACKFILES, EUDORAFILES
  1229. '** Returns:
  1230. '**     none.
  1231. '*************************************************************************
  1232. SUB RecalcOptFiles (ftype%) STATIC
  1233.     ClearCopyList
  1234.     AddOptFilesToCopyList ftype%
  1235.  
  1236.     fExtra% = 0
  1237.     IF ftype% = APPFILES THEN
  1238.         ListSym$ = APPNEEDS$
  1239.         ''Add extra cost to Windows drive for ini/progman, etc.
  1240.         ndrive% = ASC(ucase$(WINDRIVE$)) - ASC("A") + 1
  1241.         ' ReplaceListItem EXTRACOSTS$, ndrive%, "10240"
  1242.         fExtra% = 1
  1243.     ELSEIF ftype% = STACKFILES THEN
  1244.         ListSym$ = STACKNEEDS$
  1245.     ELSEIF ftype% = EUDORAFILES THEN
  1246.         ListSym$ = EUDORANEEDS$
  1247.     END IF
  1248.  
  1249.     StillNeed& = GetCopyListCost(EXTRACOSTS$, ListSym$, "")
  1250.  
  1251.     cost& = 0
  1252.     FOR i% = 1 TO 26 STEP 1
  1253.         cost&  = cost& + VAL(GetListItem(ListSym$, i%))
  1254.     NEXT i%
  1255.     ReplaceListItem STATUSTEXT$, ftype%, STR$(cost& / 1024) + " K"
  1256.  
  1257.     IF StillNeed& > 0 THEN
  1258.         ReplaceListItem BIGLIST$, ftype%, "YES"
  1259.     ELSE
  1260.         ReplaceListItem BIGLIST$, ftype%, ""
  1261.     END IF
  1262.  
  1263.     IF fExtra% THEN
  1264.         ReplaceListItem EXTRACOSTS$, ndrive%, "0"
  1265.     END IF
  1266.     ListSym$ = ""
  1267. END SUB
  1268.  
  1269. '**
  1270. '** Purpose:
  1271. '**     Recalculates disk space and sets option status info according
  1272. '**     to the current destination path.
  1273. '** Arguments:
  1274. '**     none.
  1275. '** Returns:
  1276. '**     none.
  1277. '*************************************************************************
  1278. SUB RecalcPath STATIC
  1279.     CursorSave% = ShowWaitCursor()
  1280.  
  1281.     RecalcOptFiles APPFILES
  1282.     RecalcOptFiles STACKFILES
  1283.     RecalcOptFiles EUDORAFILES
  1284.  
  1285.     RestoreCursor CursorSave%
  1286. END SUB
  1287.  
  1288. '**
  1289. '** Purpose:
  1290. '**     Sets drive status info according to latest disk space calcs.
  1291. '** Arguments:
  1292. '**     none.
  1293. '** Returns:
  1294. '**     none.
  1295. '*************************************************************************
  1296. SUB SetDriveStatus STATIC
  1297.     drive$ = MID$(DEST$, 1, 1)
  1298.     ndrive% = ASC(ucase$(drive$)) - ASC("A") + 1
  1299.     cost& = VAL(GetListItem(APPNEEDS$, ndrive%)) + VAL(GetListItem(STACKNEEDS$, ndrive%)) + VAL(GetListItem(EUDORANEEDS$, ndrive%))
  1300.     free& = GetFreeSpaceForDrive(drive$)
  1301.     ReplaceListItem DRIVETEXT$, 1, STR$(cost& / 1024) + " K"
  1302.     ReplaceListItem DRIVETEXT$, 2, STR$(free& / 1024) + " K"
  1303. END SUB
  1304.  
  1305. '**
  1306. '** Purpose:
  1307. '**     Appends a file name to the end of a directory path,
  1308. '**     inserting a backslash character as needed.
  1309. '** Arguments:
  1310. '**     szDir$  - full directory path (with optional ending "\")
  1311. '**     szFile$ - filename to append to directory
  1312. '** Returns:
  1313. '**     Resulting fully qualified path name.
  1314. '*************************************************************************
  1315. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  1316.     IF szDir$ = "" THEN
  1317.         MakePath = szFile$
  1318.     ELSEIF szFile$ = "" THEN
  1319.         MakePath = szDir$
  1320.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  1321.         MakePath = szDir$ + szFile$
  1322.     ELSE
  1323.         MakePath = szDir$ + "\" + szFile$
  1324.     END IF
  1325. END FUNCTION
  1326.